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“TAT Me get = SYSTEM SERVICE QUEUE 1/0 FDT SUBROUTINES 


COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL QUIPHENT eGORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERV 


0 HT NOT ANY Or ER 
E PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
H TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
TRANSFERRED. 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
CORPORA ioe NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIB 


IBILIT 
SOFTWARE ON EQUIPMENT WHICH IS 


Y FOR THE USE OR RELIABILITY OF ITS 
NOT SUPPLIED BY DIGITAL. 


TPP ETPT ITP i SPIT i Ti Tir rrr iri tit iitiiiiiiviiiiiiiiiiiiiiity 
D. N. CUTLER 15-SEP-76 
MODIFIED BY: 


v03-009 wMc0001 Wayne Cardoza mters! 
Add a comment warn an about general use 3 E ESIORSNUAIT. 


v03-008 powde >? . Weber 20-NOV-1983 
or I0$_PACKACK o operat ons pocems 
2 S allow the PACKACK request to g 
UCBSV_VALID in UCBSL_STS is $20ee 


the driver when 
regardless of an 


other 
conditions. However, UCBSV CL VALID an d UCB$B_ONL Nt aust 


still be correctly ad nt believed fo allow 


PACKACKs to fail and yo d. 


v03-007 $ $SA00 90¢ Stan Amway ye 
fied BACKOUT aio to cal new routine. ons Keone so 

ce insure complete traces of I/0 activity. 
v03-006 R Weber 15-SEP-1983 
only 
alteration. Use Pe 
w 


L_VALI 0” n Ucbs 
state of device oca 


th réspect to the “processor. 


99-Sep-1983 


hades ee $_C pskvat to yee ig my to track disk oni ine count 
ocal valid status. 


Ralph 0. Weber 20-AUG-1983 


v03-005 P 


v03-004 ROW0192 


8 
throug EXESLCLDSKVALID, 


to determine 
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change e EXESLCLOSKVALID to rid ucese pont either up or down 
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v03-003 ROW49973 Ralph 0. Weber 29-0CT-1982 
Change cat ting requirements for EXESIORSNWAIT from an entry 
PL$_SYNCH to an entry IPL of IPLS_ASTDEL. Have the 
a foLs-asto - Then reive fo 
-SYNCH to perform scheduler operations. This eliminates 
undesirable page faults at an IPL above IPLS$_ASTDEL when 
BACKOUT_QIO references a channel control block. 


yt 2 ROW49577 Ralph 0. Veber 27-SEP-1982 
ECO change EXESSETCHAR and EXESSETMODE to return SS$_ILLIOFUNC if 
CB$B_DEVCLASS equals DC$_DISK. This is to prohTbit SETMODE 
and SETCHAR (set characteristics) functions on disk 
es. On disk covices those functions overwrite the disk 
ch results in abbarant system 


dev 
eometry information wh 
ehavior. 
SYSTEM SERVICE QUEUE 1/0 FUNCTION DECISION TABLE SUBROUTINES 


MACRO LIBRARY CALLS 
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WOOO 0 0.009 0909 09 C9 C9 0D 0D 09.09 SI NIN NII NINN NNO AOA OO 
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SACBDEF sDEFINE ACB OFFSETS 
SCCBDEF sDEFINE CCB OFFSETS 
SOCDEF DEFINE DEVICE CLASSES 
SDEVDEF DEFINE DEVICE CHARACTERISTICS 
SIODEF sDEFINE 1/0 FUNCTION CODES 
SIPLOEF DEFINE SYSTEM IPLS 
SIRPDEF DEFINE IRP OFFSETS 
SPCBDEF DEFINE PCB VALUES 
SPRDEF DEFINE PROCESSOR REGISTER 
SSSDEF DEFINE SYSTEM STATUS VALUES 
SUCBDEF DEFINE UCB OFFSETS 
SVADEF DEFINE VIRTUAL ADDRESS FIELDS 
SSFDEF sDEFINE CALL FRAME 
; LOCAL SYMBOLS 
| ; ARGUMENT LIST OFFSET DEFINITIONS 
1 e 
1 ah sFIRST FUNCTION DEPENDENT PARAMETER 
1 <n SECOND FUNCTION DEPENDENT PA ER 
105 P = THIRD FUNCTION DEPENDENT PAR ER 
106 P4= sFOURTH FUNCTION DEPENDENT PARAMETER 
107 P5=1 sFIFTH FUNCTION DEPENDENT PARAMETER 
108 P6=2 sSIXTH FUNCTION DEPENDENT PARAMETER 


ecu 
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Re OURCE WAI SEP=1 SYS.SRCIS SQ1OFDT. MAR; 1 (1) 
. «SBTTL PLACE PROCESS IN 1/0 RESOURCE WAIT 

EXESIORSNWAIT = PLACE PROCESS IN 1/0 RESOURCE WAIT 

FUNCTIONAL DESCRIPTION: 


rats nul IS USED BY FDOT PROCEEDURES TO RE-START A Q10 REQUEST 

AFTER A RESOURCE WAIT. THE CURRENT I/0 IS CLEANED UP AND THE PRE-Q10 

STACK IS SET UP. THEN THE PROCESS IS PLACED IN THE WAIT STATE. 

IF THE PROCESS DOES NOT HAVE RESOURCE WIAT ENABLED, THE 1/0 IS ABORTED 

WITH A STATUS SPECIFIED BY THE CALLER. 

*eCAUTION*® THIS ROUTINE IS NOT CALLED AT SYNCH SO THE RESOURCE MAY ALREADY 
VE BEEN DECLARED AVAILABLE. THIS ROUTINE SHOULD ONLY BE USED FOR RESOURCES 

WHICH ARE GUARANTEED TO BE PERIODICALLY (TIMESCHDL) DECLARED AVAILABLE. 


IMPLICIT INPUTS: 
CALLER MUST BE AT IPL=IPL$_ASTDEL 


INPUTS: 
RO = STATUS TO RETURN IF at WAIT REQUESTED 
Ri = RESOURCE NUMBER T FOR 
R3 = ADDRESS OF CURRENT PACKET 
R4 = ADDRESS OF THE CURRENT 
R6 = ADDRESS OF CHANNEL CONTROL BLOCK 


OUTPUTS: 
RO,R1,R2,R3 ARE USED. 


CONTROL IS TRANSFERED TO EXESABORTIO IF NO RESOURCE WAIT 
HAS BEEN REQUESTED, 


OR TO SCHSWAIT IF RESOURCE WAIT IS REQUESTED. 


XESIORSNWAIT:: pace PROCESS IN RESOURCE WAIT 
#PCBSV_SSRWAIT,PCBSL _STSiR4) O$ ;BR IF ace pt ata 


PUSHL 1 :REMERBER R’ RESOURC 
BS BACK E 
Ap SYNCHRONI — WITH SCHEDULER DATABASE 
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MOVZBL s aynch FF WM (R4) iset P WAIT MARK 
BBSS (3p) 5 W°SCASGL_RESMASK, 36 {INDICATE PROCESS IS WAITING 
30$:  MOVL  SFSL_SAVE_AP(FP) AP sRESTORE PRE-Q10 ARGUMENT List POINTER 
VL STACK BACK TO CALL FRAME 


MO Ppes ;CLEAN 
MOVAQ w°SCHSGO_MMAIT.R2 SADDRESS WAIT LIST 
BRW SCHSW SPLACE PROCESS IN WAIT STATE 


; NO RESOURCE WAIT REQUESTED - ABORT THE 1/0 
bos: BRW EXESABORTIO : 
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902-000 ONE SARAMETE RF agit PROCESSING §- 3-1 382 96:88:73 Leys SRCTSYSOIOF DTS MAR; 1 
: .SBTTL ONE PARAMETER FUNCTION PROCESSING 
: EXESONEPARM = ONE PARAMETER FUNCTION PROCESSING 
170 ; THIS ROUTINE IS CALLED FROM THE FUNCTION DECISION TABLE DISPATCHER TO 
7 t PROCESS A ONE PARAMETER FUNCTION THAT REQUIRES NO SPECIAL CHECKING. 
7 : INPUTS: 
138 : RO = SCRATCH. 
9 176: R1 = SCRATCH. 
3 7 : Re = SCRATCH. 
178 : R3 = ADDRESS OF I/O REQUEST PACKET. 
9 179; R4 = CURRENT PROCESS PCB ADDRESS. 
029 180; RS = ASSIGNED DEVICE UCB ADDRESS. 
029 181; Rg = ADDRESS OF CCB. 
029 1 ; : R7 = 1/0 FUNCTION CODE BIT NUMBER. 
9 183; RB = FUNCTION DECISION TABLE DISPATCH ADDRESS. 
9 184: R9_= SCRATCH. 
9 185; R10 = SCRATCH. 
029 1 g : R11 = SCRATCH. 
00 3 : AP = ADDRESS OF FIRST FUNCTION DEPENDENT PARAMETER. 
0 ; } : OUTPUTS 
6 9 191 : eeeTBSere 
853 19g 7 
0 9 19% -ENABL LSB 
9 195 EXESONEPARM: ;ONE PARAMETER FUNCTION PROCESSING 
38 A3 6C 00 0 9 196 OVE P1(AP) ,IRPSL_MEDIACR3) ;STORE PARAMETER IN MEDIA ADDRESS 
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= «SBTTL ZERO PARAMETER FUNCTION PROCESSING 
3 EXESZEROPARAM = ZERO PARAMETER FUNCTION PROCESSING 


: THIS ROUTIN 
: PROCESS A Z 


INPUTS: 


NTP POPrPVwnw 


VS ODNOUR INO 
=o 
“uu 


PFPDDDDDBDADBVDBAVADD 


OUTPUTS: 


eexTBSere 


verbarnnes Nabe 


: IS CALLED FROM THE FUNCTION DECISION TABLE 
RO PARAMETER FUNCTION THAT REQUIRES NO ADDI 


IR 
EX 
LS 


PSL_MEDIA(R3) 


ESaTOORVPKT 


PATCHER TO 


IS 
ON CHECKING. 


Dd 
TI 


H. 
He 

S OF 1/0 REQUEST PACKET. 

T PROCESS PCB ADDRESS. 

ED DEVICE UCB ADDRESS. 

$ OF CCB. 

NCTION CODE BIT NUMBER. 

ON DECISION TABLE DISPATCH ADDRESS. 

o 

S OF FIRST FUNCTION DEPENDENT PARAMETER. 


ZERO PARAMETER FUNCTION PROCESSING 
CLEAR PARAMETER 
sQUEVE 1/0 PACKET TO DRIVER 
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«SBTTL LOCAL DISK VALID FUNCTION PROCESSING 
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3+ 
¢ EXESLCLOSKVALID = LOCAL DISK VALID FUNCTION FROCESSING 


This routine is cottee from the funct jen decision table dispatcher to 
process Tuncttens which affect the online « unt and local valid status 


If the function i the bs ta pecet ack acknowedge function 
(UCBSV_LCL_VA .o, : of O's he online count, vw $B_ONLCNT, is 
incremented and WALID is set. If the online count was 
reviously zero gio "0 0 pac ket is queued to the driver for further 
Acie K processing. f the online count was not prev ously zero but 

ID bit Pp clear, the 1/0 packet is also queued to the 
poe Hh for ee AS. processing. 


: If the function is the first local available or unload function 
: (UCBSV_LCL se is set), the online count, UCBSB_ONLCNT, is 
: decrenented and UCBSV_LCL_VALID is cleared. If the decremented online 


A AAAA AAA NAIA AWIA AAA AAAI EE 


t is zero, the 1/0" packet is queued to the driver for further 
AVAILABLE or UNLOAD processing. 


; INPUTS: 
REQUEST PACKET. 
ADD 


E UCB 
ODE BIT NUMBER. 


J 
wn 
hnuon 


; OUTPUTS: 


UCBSB_ONLCNT is altered to reflect the number of hosts which have set 
the drive online (i.e. issued PACKACK functions to the drive). 


UCBSV_LCL_VALID in UCB$L_STS is set for PACKACK functions and cleared 
for AVAILABLE or UNLOAD functions. 


PREP PEAPALAL DP Mrs PP PPLE 
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a EXESLCLDSKVALID:: 3; LOCAL DISK VALID FUNCTION PROCESSING. 
08 57 91 us CMPB R7, #10$_PACKACK ; Pack acknowledge function? 
i8 ig 7 BNEQ 50$ : Branch if not a PACKACK. 
OE 64 A5 11 =O € 74 BBSS #UCBSV_LCL ae : Is this the first local PACKACK? 
75 UCBSL_STS(R5), 208 : Branch if not first Local PACKACK. 
8 SETIPL , 3 Synchronize with she a server. 
OAE CS 96 4 7 INCB UCB$B_ONLCNT (RS) $ incronent online c 
01 OAE C5 91 4 oe CMPB fese_ “ONLCNT(RS), 3 Is this the Hree’ roles PACKACK? 
13 4 7 BEQL $ 3 prench if first cluster PACKACK. 
11 64 AS EO 4 0 208: BBS #UCBSV_VALID 3 Is the yolune already valid? 
3 : UCBSL_STS(R55, “g0$ : Branch if volume is already valid. 
5 
FFAB’ 31 4 30S: BRw EXESQIODRVPKT 3; For-first cluster PACKACK, last 
5 3 cluster UNLOAD or AVAILABLE, _¥ 
§ 3; truely invalid volume, ask driver 
2 8 3; to really perform the function. 


4% 
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y02-000 LOCAL DISK VACED Stage PRO eesti ING §- SEP 1382 88: g¢: 4 YeYS. SRC a6ee Hons” MAR; 1 ° (1) 
50$: 3 UNLOAD and AVAILABLE c 
09 64 AS 11 €5 i BBCC Mat bCL YoLip 3; First Local * - as COURIC ABLE? 
A STS(R és” 3 Branch 
A SETIPL HIP t “SCS $ synchronize oeith "asce server. 
OOAE C5 +f D 9 DECB yce B-ONLCNT(RS) 3 Decrement online count. 
<5 6 3¢ BEQL ; Branch if the online count is zero. 
3 3 80S: ; For requests which are not being 
? 9 3 genes on to the driver. 
0 3! 3 38 povews. #SS$_NORMAL, R 3 Set normal completion status. 
FF97" 31 0066 29 EXESFINISHIOC : Finish 1/0 operation. 
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ibaa tt READ AND oki te FUNT ETON PROCESSING g- -SEP=1 1382 86: ¢8: 4 SYS. ERC IS SQIOFDT.MAR: 1 ° d) 
: .SBTTL READ AND WRITE FUNCTION PROCESSING 
: EXESREAD = READ FUNCTION PROCESSING 
4: EXESWRITE - WRITE FUNCTION PROCESSING 
5 : EXESMODIFY = MODIFY FUNCTION PROCESSING 
$ ; THESE ROUTINES ARE CALLED FROM THE FUNCTION DECISION TABLE DISPATCHER TO 
§ ; PROCESS A READ OR WRITE PHYSICAL OR LOGICAL FUNCTION 
3 ; EXESMODIFY IS USED FOR FUNCTIONS THAT READ AND WRITE MEMORY. 
9 i > INPUTS: 
3 13; RO = SCRATCH. 
69 14: Ri = SCRATCH. 
9 15 ; Re = SCRATCH. 
069 16 ; R3 = ADDRESS OF 1/0 REQUEST PACKET. 
69 317: R4 = CURRENT PROCESS PCB ADDRESS. 
069 18 : RS = ASSIGNED DEVICE UCB ADDRESS. 
069 319: Rg = ADDRESS OF CCB. 
069 0; R7 = 1/0 FUNCTION CODE BIT NUMBER. 
069 1: RB = FUNCTION DECISION TABLE DISPATCH ADDRESS. 
069 § 3 R9 = SCRATCH. 
069 : R10 = SCRATCH. 
0069 4: R11 = SCRATCH. 
069 5; AP = ADDRESS OF FIRST FUNCTION DEPENDENT PARAMETER. 
B83 HN ournuns: 
069 9: eeeTBSeee 
ets 
069 é .ENABL LSB 
069 EXESMODIFY: : :MODIFY FUNCTION PROCESSING 
52 ATTA DF 069 4 MOVAL BSEXESMODIFYLOCK .R2 SSET ADDRESS OF BUFFER CHECK ROUTINE 
6F é EXESREAD: : D FUNCTION PROCESSING 
52 _9B'AF DE fF MOVAL B*EXESREADLOCK,R2 ise DDRESS OF BUFFER CHECK ROUTINE 
04 2A a3 01 CC 8 5$: BBCS  #IRPSV_FUNC, IRPSW_ STS(R35 O$ ;SET READ FUNCTION STATUS 
7 EXESWRITE:: ; “FUNCTION PROCESSING 
52 8 DE 7 40 MOVAL BrEXESURIT LOCK ,R2 [SET ADDRESS OF BUFFER CHECK ROUTINE 
3c aE AC D 7¢ «=. 341«108: OVL P4C(AP),IRP CARCON(RS)  j j INSERT CARRIAGE CONTROL BYTE 
06 00 ED 1 4g CMPZV #IRPSV FCODE; biRbSe FCODE .= HYSICAL 1/0 FUNCTION? 
1F 0A 4 %% RPS W_FUNC(RS) ,#10$~P Sita’: : 
04 15 7 364 BLEQ 0$ Léa ves 
; A 9 345 SUBW = #10$_ READLBLK-10$ ~READPBLK, SCONVERT TO PHYSICAL FUNCTION 
20 A 46 IRP$@_FUNC(R3) 
51 4A p D 4 208: mOvL pte GET NUMBER OF BYTES TO TRANSFER 
50 p 35 43 MOVL  P1(AP),RO i061 STARTING VIRTUAL ADDRESS OF TRANSFER 
3 36 JSB (R2) CHECK BUFFER AND LOCK IN MEMORY 
FF65" 3 9 1 30$: BRW EXESQIODRVPKT SQUEUE 1/0 PACKET +O DRIVER 
9B 2 .DSABL LSB 


SY! 
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tee tt READ AND oerye FUNC ETON BUFFER CHECK AND ~$E0=1 38% 96:88:33 Heys SRCISYSQIOFDT.MAR;1 ed 
4 .SBTTL READ AND WRITE FUNCTION BUFFER CHECK AND LOCK ROUTINES 
B : ; EXESREAD OCK = CHECK BUFFER FOR READ ACCESSIBILITY AND LOCK 
9B : EXESWRITELOCK = CHECK BUFFER FOR WRITE ACCESSIBILITY AND LOCK 
98 ; EXESMODIFYLOCK = CHECK BUFFER FOR READ ACCESSIBILITY AND LOCK 
98 360 ; THESE ROUTINES ARE CALLED TO CHECK THE ACCESSIBILITY OF AN 1/0 BUFFER AND 
38 : TO LOCK THE BUFFER IN MEMORY FOR A DIRECT MEMORY TRANSFER. 
38 $ : INPUTS: 
9B 5: RO = STARTING ADDRESS OF 1/0 BUFFER. 
9B 6 : Ri = LENGTH OF TRANSFER IN BYTES. 
9B ; R4 = CURRENT PROCESS PCB ADDRESS. 
38 8 ; R6 = ADDRESS OF CCB. 
38 79 : OUTPUTS: 
9B es ; THE 1/0 BUFFER IS CHECKED FOR THE PROPER ACCESSIBILITY. IF THE 
98 373: CHECK SUCCEEDS, THEN THE BUFFER IS LOCKED IN MEMORY AND THE STARTING 
98 374: ADDRESS OF THE PAGE TABLE ENTRIES THAT MAP THE TRANSFER IS STORED 
098 75 : IN THE 1/0 PACKET. ELSE THE 1/0 IS COMPLETED WITH A STATUS OF 
9B id: : ACCESS VIOLATION. 
S98 378 
098 8 EXESREADLOCK:: sCHECK BUFFER FOR READ FUNCTION AND LOCK 
11 10 0098 0 BSBB.- EXESREADLOCKR i EXESREADLOCKR RETURNS NORMALLY 
09D 1 SSUCCESS, VIA COROUTINE CALL ON FAILURE 
05 009D ; RSB ?RETURNS TO CALLER ON SUCCESS, TO 
3E ; SEXESREADLOCKR ON FAILURE 
9E 5 EXESWRITELOCK:: ;CHECK BUFFER FOR WRITE FUNCTION AND LOCK 
15 10 009 : BSBB  - EXESWRITELOCKR SEXESWRITELOCKR RETURNS NORMAL 
is SSUCCESS, VIA COROUTINE CALL ON FAILURE 
05 O0A : RSB [RETURNS TO CALLER ON SUCCESS, 
Oa TEXESWRITELOCKR ON FAILURE 
OA 3 EXESMODIFYLOCK: ;CHECK BUFFER FOR MODIFY FUNCTION AND LOCK 
01 10 OOA1 3 BSBB EXESMODIFYLOCKR TEXESMODIFYLOCKR RETURNS NORMA 
OA 9 SSUCCESS, VIA COROUTINE CALL on” FAILURE 
05 O0A 94 RSB SRETURNS TO CALLER ON SUCCESS, TO 
OA 395 SEXESMODIFYLOCKR ON FAILURE 
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«SBTTL READ AND WRITE BUFFER CHECK AND LOCK AND RETURN ROUTINES 

; EXESREADLOCKR - ad hae FOR READ ACCESSIBILITY AND LOCK AND RETURN 

: EXESWRITELOCKR - "CHECE BUFFER FOR WRITE ACCESSIBILITY AND LOCK AND RETURN 
: EXESMODIFYLOCKR = "GHEEE B i FOR READ ACCESSIBILITY AND LOCK AND RETURN 


THESE ROUTINES ARE CALLED TO CHECK THE ACCESSIBILITY OF AN 1/0 BUFFER 
TO LOCK THE BUFFER IN MEMORY FOR A DIRECT MEMORY TRANSFER. IN 

ADDITION, THESE poyT ines PERFORM A ey ie CALL IF THERE IS AN ERROR 
OR ANY PAGES HAVE TO BE FAULTED IN. THE PURPOSE OF THE COROUTINE 
CALL _IS TO ALLOW THE CALLER TO PERFORM ANY NECESSARY CL BE 
THE Q10 IS BACKED UP OR ABORTED. THESE ROUTINES ARE TYPICALLY CALLED 
BY DRIVERS THAT MUST LOCK MULTIPLE AREAS INTO MEMORY. SINCE T 
ROUTINES CANNOT UNLOCK AREAS PREVIOUSLY LOCKED, THE COROUTINE CAL roar 
THE CALLER (THE DRIVER) TO UNLOCK PREVIOUSLY LOCKED AREAS Me PERFORM 
ANY OTHER CLEANUP) AND THEN RETURN HERE TO BACK UP OR ABORT THE 1/0. 
EXESMODIFYLOCKR IS USED WHEN THE BUFFER WILL BE READ AND WRITTEN BY THE 
1/0 DEVICE. IT DISABLES AN OPTIMIZATION IN MMGSIOLOCK WHICH IS USED 
WHEN THE BUFFER IS ONLY WRITTEN. 
INPUTS: 

RO = STARTING ADDRESS OF 1/0 BUFFER. 

Ri = LENGTH OF BUFFER IN BYTES. 

R4 = CURRENT PROCESS PCB ADDRESS. 

R6 = ADDRESS OF CCB. 
: OUTPUTS: 


IS CHECKED FOR THE PROPER ACCESSIBILITY 
THEN THE BUFFER IS LOCKED IN MEMORY AN 
pase TABLE ENTRIES THAT MAP THE TRANSFE 


IN THE I/0 PACK 
RO = RETURN CODE 


WANA AAA WIAA POPOPINPUPIIII 2 MQOO OOOO 000000 


er 
re 
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NOTE THAT IF THERE ARE NO ERRORS AND NO PAGES HAVE TO BE FAULTED 
IN, THEN THESE ROUTINES RETURN NORMAL LLY. HOWEVER, IF THERE IS AN 
ROR OR A PAGE HAS TO BE FAULTED THEN THE CALLER IS CALLED 
BY A COROUT NE CALL. THE CALLER'S nis THEN RETURNS HERE WHERE 
THE Q10 IS EITHER BACKED UP OR ABORTED. NOTE THAT IN THIS CASE 
THE CALLER’ ERROR HANDLING CODE MUST PRESERVE ALL REGISTERS, 
INCLUDING R 
.ENABL LSB 
XESMODIF YLOCKR: ;CHECK BUFFER FOR MODIFY FUNCTION AND LOCK 
$0 p PUSHL RO [SAVE STARTING ADDRESS OF BUFFER 
009 44 Baur EXESREADCHKR [CHECK BUFFER FOR READ FUNCTION 
52 04 ¢ 44 BISL &#4.R2 [DISABLE OPTIMIZATION IN MMGSIOLOC 
C 4 BRB 10$ 
4 ; EXESREADLOCKR: : :CHECK BUFFER FOR READ FUNCTION AND LOCK 
50 DD 4 PUSHL RO [SAVE STARTING ADDRESS OF BUFFER 


SYSQIOFDT = SYSTEM SERVICE QUEUE 1/0 FDT SUBROUTIN 16-SEP-1984 AX/VMS Macro V04-00 Page 11 
yO2-000 READ AND WR af BUFFER CHECK AND LOCK AND 5-S sets 7 88: g¢: 3 Heys” SRCJSYSQIOFDT.MAR;1 - 
00 B04 BSB XESREADCHKR ;CHECK BUFFER FOR READ FUNCTION 
a et 
a5 4 5 EXESWRITELOCKR:: CHECK BUFFER FOR WRITE FUNCTION AND LOCK 
50 p B54 PUSHL R SSAVE STARTING ADDRESS oF BUFFER 
OOEA B? 4 BSBW EXESURITECHKR [CHECK BUFFER FOR WRITE FUNCTION 
4 ache Stes cet Ce OBhE TRESTORE STARTING ADDRESS OF BUFFER 
30 a3 50—Ss FOO f AB p 4 BICWS #*C<VASM_BYTE>,RO, IRPSW BOFRCRES “SET BYTE OF ese TIN PAGE 
p 4 PUSHL R3 ySAVE ADDRESS OF 1/0 PACKE 
FF 34° 0069 464 BSBW mMIGSIOL Ck TLOCK E PA GES FOR 1/0 
53 DO O0CC 465 MOVL :RETRIEVE oApones OF 1/0 PACKET 
08 E9 OOCF 4 6 BLBC a6, F bat K FAILURE 
2c a3 Bg 4 ROVE R1, IRPSL_SVAPTE(R3) :INs RT SORES OF FIRST PTE IN PACKET 
SE 04 ; iss 15$: ADDL #4,SP TTHROW AWAY OLD RO 
; D0DA «470 208: JSB a(SP)+ SCOROUTINE CALL TO CLEANUP 
30 p d9n¢ 4 ST SOs ZERRORS ENCOUNTERED? 
51 OD 47 PUSHL ZSAVE VIRTUAL ADDRESS OF PAGE TO FAULT 
18 10 474 BSBB ee alo LEANUP Q10 
Q BA 00E4 475 POPR RETRIEVE VIRTUAL ADDRESS OF PAGE TO FAULT 
SE 5D BO Es 47 MOVL [TRIM STACK BACK TO C HANGE move FR 
5C 08 AD 7D O0E9 47 MOva Be (fe) ;RESTORE USER ARGUMENT AND FRAME POINTERS 
SE 90" C0 ED 478 ADDL SS EXESE _CMSTKSZ,SP MOVE CHANGE MODE CALL FRAME FROM STACK 
50 BE 04 § FO 47 SUBL3. #4, (SP)+7RO SCALCULATE RESTART ADDRESS 
FB'AF 6 O9F Fg 4 0 PUSHAB B°40$ 3SET NEW RETURN ADDRESS 
61 9 oF 4 é 40$:  TSTB  (R1) TFAULT USER BUFFER AGAIN 
60 17 OOFA 4 JMP (RO) TREPEAT SYSTEM SERVICE 
FFO1" 31 OOFC 484 50$: BRW EXESABORTIO SABORT 1/0 REQUEST 
OFF 485 DSABL LSB 
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FDT = SYSTEM SERVICE QUEUE 1/0 FDOT susROgTIN 16-SEP= AX/VMS Macro V04-00 Page 1 
§86 BAtKOUT A cio green 8RS BSTehias ANC Macce YO =00 a ve if, 
Fr 4 4 .SBTTL BACKOUT A Q10 
re 4 § ; BACKOUT_QIO = BACKOUT A Q10 
FF 6491 : THIS ROUTINE 1s Mh D 10 BACKOUT A Q10. IT DECREMENTS THE CHANNEL 1/0 
FF 492 ; COUNT NCREM NT DIRECT 7or BUFFERED 1/0 COUNT, DEALLOCATES THE 
FF 493 : DIAGNOSTIC BUFFE PRESENT), OPTIONALLY INCREMENTS THE AST COUNT, AND 
FF 4 4 ; PINALLY bEACLOcATES. THE IRP. 
re 4 : : INPUTS: 
FF 498 : Rs = ADDRESS OF 1/0 RE QUEST PACKET 
FF ; R4 = CURRENT PROCESS PCB ADDRESS 
FF 9 ; R6 = ADDRESS OF CCB 
FF ; : OUTPUTS: 
FF 4: RO - R3 = CLOBBERED 
FF 5; 
Fr i 
FF 8 BACKOUT_QIO: ;BACKOUT A Q10 
FEFE* 30 FF BSBW PRSSABORT RQ : RECORD ABORT IF I/O MONITORING ENABLED 
OA as a7 01 2 10 DECW  CCB$W_IOCTRE) A MENT CHANNEL 1/0 COUNT 
05 2A a3. 00 1 «O01 11 BBC Atti SUF IO IRPSW_ srsins} 0s NOT BUFFERED 1/0 
3A a, i) A 1g Inc ‘ B$W_BIOCNT(R4) 1 COUNT OF BUFFERED 1/0 
3E AS BS 108 14 108: INCW PCBSW_DIOCNT(R4) ut DIRECT 1/0 COUNT 
OC 2A a3. 07—«SO€E1s*OO é 15 20$: BBC #IRPSU_DIAGBUF , IRPSW_ srsit O$ ;BR. IF NO DIAGNOSTIC BUFFER 
0 4c AS DO 17 1 MOVL IRPSL _BIAGBUF (R3) ,RO™ i961 AD RESS OF DIAGNOSTIC BUFFER 
EF ssh 119 18 BsBu E{ESDEANONPAGED :DEALLOCATE DIAGNOSTIC BUFFER 
03 0B AS. 06 «E17 «O01 ; 0 30$: BBC #ACBSV_QUOTA 1RPSB_ RMOD(RS) S108 5B :BR IF AST NOT REQUESTED 
38 AG) «B6 OT 1 INCW PCBSW_ASTCNT(R4 ADJUST AST COUNT 
50 (53 128 é 40$: MOVL :DEALLOCATE PACKET 
FECE E ; BSB oe same 
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CTION. 
; ; INPUTS: 


; OUTPUTS: 


. ENABL 
EXESREADCHK: : 


BSBB 
BRB 


DDD AAA ATES BS BE BS BS BS BE BAIA AA AA AAAI 


SOON AUNLS WN OS OO NAN WO OONAUE WI OOOO 


H 1 
7 1¢0 FDOT SUBR 
LITY FOR READ 


«SBTTL CHECK BUFFER ACCESSIBILITY FOR READ FUNCTION 
:  EXESREADCHK ~ CHECK BUFFER ACCESSIBILITY FOR READ FUNCTION 
; ge ROUTINE IS CALLED TO CHECK BUFFER ACCESSIBILITY FOR A READ 1/0 


UNC 


OtIN 1 3 p= 1882 09:89:22 yaxivas Macro v04-00 


SYS.SRCISYSQIOFDT.MAR; 1 


IF BUFFER IS NOT WRITE ACCESSIBLE, THEN THE 1/0 REQUEST IS TERM- 
INATED VIA EXESIOFINISH WITH A STAT 


teas IS WRITE ACCESSIBLE, THEN THE FOLLOWING VALUES ARE RE- 


US OF SS$_ACCVIO. 


RO = ADDRESS OF BUFFER. 
Ri = SIZE OF TRANSFER IN BYTES. 
Rg = READ FUNCTION INDICATOR, (1). 
R3 = ADDRESS OF 1/0 REQUEST PACKET. 
[RPSU_BCNT(R3) = SIZE OF TRANSFER IN BYTES. 
IRPSW-FUNC(R3) = READ. 
LSB 

/CHECK BUFFER FOR READ. FUNCTION 
RO SAVE ADDRESS OF BUFFER 
EXESREADCHKR CHECK BUFFER 
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10 
SUBROUTIN 19-3 
WRITE FUN 95=S 


Epajon OSiserte Lene acter sorue oT gant 


P ~SBTTL CHECK BUFFER ACCESSIBILITY FOR WRITE FUNCTION 
EXESWRITECHK = CHECK BUFFER ACCESSIBILITY FOR WRITE FUNCTION 


INPUTS: 


OUTPUTS: 


IF BUFFER IS NOT READ ACCESSIBLE 
INATED VIA EXESIOFINISH WITH A STATUS OF SS 


ROUTINE IS CALLED TO CHECK BUFFER ACCESSIBILITY FOR A WRITE 1/0 
UNCTION. 


THEN THE 1/0 REQUEST IS TERM- 


-ACCVIO. 


Hen IS READ ACCESSIBLE, THEN THE FOLLOWING VALUES ARE RE- 


EXESWRITECHK:: 
PUSHL 
BSBB 

10$: BLBS 
BRid 

20$: POPL 
RSB 


RO 

EXE WRITECHKR 
EXESABORTIO 
RO 


LSB 


RO = ADDRESS OF BUFFER. 

Ri = SIZE OF TRANSFER IN BYTES. 

Re = SRE FUNCTION INDICATOR (0). 

R35 = ADDRESS OF 1/0 REQUEST PACKET. 

[Re ey CNT ihe} = SIZE OF TRANSFER IN BYTES. 
IRP$SW_FUNC(RS) = WRITE. 


CHECK BUFFER FOR WRITE FUNCTION 
SAVE ADDRESS OF BUFFER 
CHECK BUFFER 


:CH 
BRANCH IF SUCCESS 
TRESTORE ADDRESS OF BUFFER 


Page 1 
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502-000 CHECE BUFFER ACEESSIBILATY FOR REAL TUNG SaSep-iobe ASiSecta PeNC MES HeCee YOR OO ks = Page 13, 


; »SBTTL CHECK BUFFER ACCESSIBILITY FOR READ FUNCTION AND RETURN 
: EXESREADCHKR = CHECK BUFFER ACCESSIBILITY FOR READ FUNCTION AND RETURN 


THIS ROUTINE IS CALLED TO CHECK BUFFER ACCESSIBILITY FOR A READ 1/0 
FUNCTION. STATUS IS RETURNED IN RO. 


INPUTS: 


aa 


OUTPUTS: 


IF THE BUFFER IS NOT WRITE ACCESSIBLE, THEN THE FOLLOWING 
VALUE IS RETURNED: 


RO = SS$_ACCVIO 
a IS WRITE ACCESSIBLE, THEN THE FOLLOWING VALUES ARE RE- 


ad ad ed aed od od odode = OOOO OOOO 


NAA W299 OOD NA NEW 2S OOD NAN E WN 9 OO NAMEN @§ OW NAUEWH OOOO NOUS Wi 


Sete Ge Ge Ge Ge Ge Ge Ge Ge Be Sse Ge Ge Ge Ge Se Sse Ges Sets SseSseSeSsetes 


BERD D SNAP DAA PAAAAAA AA AA AA AA AA AA AAA A AA AAA AAA AAS 
PSSM FEEL EE EEE EOC CCCE OES COARSE SA AAA 


me ee eh ce ee me me a a ed ad td ed a A es = — 9 — 9) 2 2 9) ss a 


NIN SS Sa SSS SS-5-5-0-0-0-0-0-0-0-0-O-O-O-0-O-O-0-0-O-0-0-O-O-O-O-o--o- nee 
WINS OOOom 


RO = SS$_NORMAL 
Ri = SIZE OF TRANSFER IN BYTES. 
Re = READ FUNCTION INDICATOR (1). 
R3 = ADDRESS OF 1/0 REQUEST PACKET. 
IRPSL_BCNT(R3) = SIZE OF TRANSFER IN BYTES. 
IRPSW-FUNC(R3) = READ. 
.ENABL LSB 
EXESREADCHKR: : : CHECK BUFFER FOR READ FUNCTION 
32.03 51 «OD MOVL  R1,IRPSL_BCNT(R3) : SAVE R1 
oF 1 BSBBOtié«d;COS: : CHECK ACCESS 
51 32 ASOD MOVL IRPSL_BCNT(R3) -R1 + RESTORE R 
0750 «CE BLBC ~—E—s«aRO,, 5 : IF LBC, NO ACCESS 
2A a3 6 A BISW #1RPSM_FUNC, IRPSW_STS(R3) > SET READ FUNCTION 
p 4 MOVL #1,R2 ; SET READ FUNCTION INDICATOR 
41 5$ RSB 
1 50 CO 10$ ADDL _—RO,R1 : ENDING ADDRESS OF BUFFER 
50 OFF BF AA BICW  #VASM_BYTE,RO ; TRUNCATE TO START OF PAGE 
1 50 g SUBL . t CALCULATE LENGTH OF BUFFER TO PROBE 
52. FEOO ef CVTWL | o#f- X200,R2 : SET ADDRESS ADJUSTRENT CONSTANT 
5 1 F 15$ CVTLW ORT,R : GREATER THAN 32k? 
13 1D BVS 30$ : IF VS, YES; CHECK BY CHUNKS 
: NOW K ,ACCV : N T) ’ 
208 IFNOWRT R1, (RO) ,ACCVIO CAN ENDS OF USER'S BUFFER BE WRITTEN? 
50 5 2 SUBL  R2.R : CALCULATE VA OF NEXT PAGE 
51 614 E MOVAW (R1)CR27,R1 : CALCULATE NEW LEN 
F 4 BGTR 208 : IF GTR THEN MORE TO TEST 
50 (01 ¢ MOVZWL #SS$_NORMAL RO : INDICATE SUCCESS 
a : AND RETUR 
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wn 
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z= DBD 
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RO,-(SP) SAVE CURRENT VALUES ON STACK 


$se30" calle BPE UEEC HENS BU RABE 'EREEIONE RSENS] LR 
51 7600 8F 3¢ 6 5 MOVZWL #*X7E00,R1 : S136 OF CHUNK yseD STEPPING THRU BUF. 
6E 51 C ‘ ADDL —R1, (SP) t ADVANCE ADDRESS BY THIS AMOUNT 
04 AE 51 ¢ 1 é SUBL Rl *4(SP) + DECREASE COUNT 
oh BRE Bl BR Bhccye cs 
50 «BE 5 13 6 MOV tsp ett + POP PRE-ADJUSTED VALUES OFF STACK’ 
CF Oo 198 5 1 4 — IF LENGTH NOW LT 32k 

19¢ 88 ACCVIO1: 

SE 08 £0 ; i ADDL #8,SP 
1A 0 ACCVIO: 

50 (OC 3¢ 149 671 MOVZWL #SS$_ACCVIO,RO 

05 O1A 67 RSB 

1Aa «67 
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¥02 000 CHECR BUFFER ACCESSIBILITY FOR GREE EON "Sasepayone Bo:Scrta PANCMES Becca VOnrOewr:1 Page 12, 
las 2 ; ~SBTTL CHECK BUFFER ACCESSIBILITY FOR WRITE FUNCTION AND RETURN 
1A4 z ; EXESWRITECHKR = CHECK BUFFER ACCESSIBILITY FOR WRITE FUNCTION AND RETURN 
1A4 8 : THIS ROUTINE IS CALLED TO CHECK BUFFER ACCESSIBILITY FOR A WRITE 1/0 
1A6 6 ; FUNCTION. STATUS IS RETURNED IN RO 
1A4 : > INPUTS: 
1A4 4: RO = ADDRESS OF BUFFER. 
1A4 5: R1 = SIZE OF TRANSFER IN BYTES. 
1A4 : : R3 = ADDRESS OF 1/0 REQUEST PACKET. 
1A4 ; 8 : OUTPUTS: 
106690: IF BUFFER IS NOT READ ACCESSIBLE, THEN THE FOLLOWING VALUE IS 
1A6 691 : RETURNED: 
1A4 638 ; RO = SS$_ACCVIO 
106695: IF BUFFER IS READ ACCESSIBLE, THEN THE FOLLOWING VALUES ARE RE- 
1" $9 3 TURNED: 
1A6 698: RO = SS$_NORMAL 
104699: Ri = SIZE OF TRANSFER IN BYTES. 
1a4 700: Re = WRITE FUNCTION INDICATOR (0). 
1A 701 : R3 = ADDRESS OF 1/0 REQUEST PACKET. 
106703: IRPSL_BCNT(R3) = SIZE OF TRANSFER IN BYTES. 
1A4 708: IRPSW-FUNC(R3) = WRITE. 
ing FoR 
a4? 8 EXESWRITECHKR: : sCHECK BUFFER FOR WRITE FUNCTION 
32, a3 51 00 1047. : MOVL —-R1, IRPSL_BCNT(R3) > SAVE 
0A «610 O1A8 «=? BSBB OC f«4O$ : CHECK ACCESS 
51 32 a3 00 1AA 710 MOVL RPSL BCNT(R3),R1 : RESTORE R1 
02 30 E AE 711 BLBC ~=._-«aRO, 35S : IF LBC, NO ACCESS 
52 «(D4 «(01B ar CLRL : SET WRITE FUNCTION INDICATOR 
05 183 £13 35$: RSB 
51 50 CO 0184 715 40$: ADDL RO,RI1 : ENDING ADDRESS OF BUFFER 
50 OIFF F AA 0187 rig BICW #VASM_BYTE,RO : TRUNCATE TO START OF PAGE 
1 50 ¢ 1BC 711 SUBL RO, R1 : CALCULATE LENGTH OF BUFFER TO PROBE 
52 E00 er 1BF f18 CVTWL f= X200.R2 : SET ADDRESS ADJUSTMENT CONSTANT 
51 51 «=F? 0104 719 45$: CVTLW RILR : GREATER THAN 
13 «1D 1c? f 6 BVS § : IF VS, YES; CHECK BY CHUNKS 
13 7 ; 50$:  IFNORD R1,(RO),ACCVIO : CAN ENDS OF USER'S BUFFER BE READ? 
50. OS 2 O1CF 7 SUBL = R : CALCULATE VA OF NEXT PAGE 
51 0183 E 01D2 724 mOVAW (R1)CR27,R1 : CALCULATE NEW LENGTH 
F 4 0106 725 BGTR 50S : IF GTR THEN MORE TO TEST 
50 01 3C 0108 7 : MOVZWL #SS$_NORMAL RO : INDICATE SUCCESS 
5 18 f RSB : AND RETURN 
7E 50 zp 1D¢ § 60$: mova RO, =(SP) : SAVE CURRENT VALUES ON STACK 
51 7600 BF 3¢ 1DF : MOVZWL #*X7E00,R1 : S1g6 OF CHUNK USED STEPPING THRU BUF. 
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ee a a ae t ADUUGE Maps BY THIS anu 
AC oS 5 1E BLBC —s- RO, ACCVJ101 : IF LBC, NO ACCESS 
50 BE 7D i 7 é MOvG ($6). ; POP PRE-ADJUSTED VALUES OFF STACK 
CF O11 (O13) 7 BRB 45$ : SEE IF LENGTH NOW LT 32k 
145738 .DSABL LSB 
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«SBTTL SET DEVICE MODE AND CHARACTERISTICS FUNCTIONS 
EXESSETMODE = SET DEVICE CHARACTERISTICS AND MODE 
FUNCTIONAL DESCRIPTION: 


SNL 


FV OOD NAME WIN SO ODNAUE WN SO OD NAME WN OS ODNAUES MO OONOu 


THIS ROUTINE PLACES THE NEW CHARACTERISTICS SPECIFIED BY P1 INTO 
THE ‘ PA ack Ay 4 INSERTION INTO THE UCB WHEN is wk IS IDLE. 
THE INPU aT THE FORM RETURNED BY $GTCHAN. THE SPECIFIED BUFFER 
2 IS ASSUMED” 10 Aa 12 BYTES IN LENGTH. THE P LENGTH SPECIFIER IS IGNORED. 
3 THE NEW CHARACTERISTICS ARE PLACED IN IRPSL_MEDIA/MEDIA+4 AND THE 
3 PACKET IS QUEUED VIA EXESQIODRVPKT. 
9 INPUTS: 
R3 = 1/0 ee ADDRESS 
R4 = CURRENT PC 
RS = ACB ADDRESS 
R6 = ASSIGNED CCB ADDRESS 
AP = ADDRESS OF THE Q10 ARGUMEMT P1 
8 OUTPUTS: 
0 


RO = STATUS OF THE OPERATION 
R3+ ARE PRESERVED. 


COMPLETION CODES: 


SS$S_NORMAL = SUCCESSFUL 
SS$"ACCVIO = BUFFER ACCESS VIOLATION 
SSSLILLIOFUNC = FUNCTION IS ILLEGAL ON DISK DEVICES 


SOQOOCOCOOO OOO OOOO OSOSOOOOGOOOSOCOOOOOOOCOOOOOOOOOOOOOOOO 


RPIMPIMININ 2 4 | “QDOCOCOOCOOCOCOSOSOSCSOSOSOOSOOOOCOOOOOOO OOO OOOO 
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1 
1 
1 
1 
1 
1 
1 
: 
19 EXESSETMODE:: 3SET DEVICE MODE AND CHARACTERISTICS 
07 «610 BSBB CHECKS SET 31S THIS SET FUNCTION V 
38 AS 61 7D MOVQ (R1), IRPS ‘ pig PEACRS) s INSERT CHA oe te al IN iso PACKET 
FDEB' 31 BRW EXESQIODRV SQUEUE THE PACKET 
CHECK_SET: 
40 AS 4 91 CMPB #0C$_DISK, UCBSB_ DEVEL ASS (ES? ne Is this a disk device? 
A 13 BEQL 91$ ~ 3 h if disk; they can't be set. 
51 bd MOVL P1(AP) $ ae gh address. 
IFNORD #8, cat)” ‘93s ; Branch if no read access to buffer. 
05 RSB ; Else, all is ok; return to caller. 
50 O0F4 4 * 91$: poyeu. ass. ILLIOFUNC, RO 3 setup illegal 1/0 function status. 
50 C 3 93$: MOVZWL #SS$_ACCVIO, RO 3 Setup access violation status. 
FOCE’ 31 99$: BR EXESABORTIO 3; Then blow the 1/0 request away. 
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o11 ? 
pUOROUTIN TErSEp=19be OS:Seri8 LersconcievsaiorDTomar;1 28° 9, v0 
- .SBTTL CARRIAGE CONTROL INTERPRETATION 
; EXESCARRIAGE = INTERPRET CARRIAGE CONTROL SPECIFIER 
; FUNCTIONAL DESCRIPTION: 

; THIS ROUTINE IS USED BY THE 
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LINE PRINTER DRIVER AND THE TERMINAL 
; DRIVER TO INTERPRET THE CARRIAGE CONTROL SPECIFIER IN IRPSB_CARCON . 
; NOTE THAT IRPSB_CARCON IS USED AS A LONGWORD! 


; THE SPECIFIER IS AS FOLLOWS: 
BYTE “= FORTRAN CARRIAGE CONTROL CHARACTER IF NOT 0 
BYTE keene 


wo eeeet IGNORED 
“= PREFIX CARRIAGE CONTROL 
«BYTE 4 == SUFFIX CARRIAGE CONTROL 


; THE PRE/SUF FIELDS ARE AS FOLLOWS 
IF BIT 7=0 THEN BITS $-? ARE THE NUMBER OF NEWLINES TO INSERT. 
IF BIT 7=1 AND BIT 6=0 THEN BITS 4-0 ARE THE ASCII CHARACTER TO 
OUTPUT. ng | SET CO OR C1 IS SPECIFIED BY BIT S. 
IF BIT 7=1 AND BIT 6=1 THEN BITS 5-0 ARE THE PRINTER CHANNEL NUMBER 
; ASCII SET CO IS ASSUMED AND BIT 6 IS IGNORED IF BIT 7=0. 
; INPUTS: 


3 = ADDRESS OF THE 
R5 = ADDRESS OF THE 


1/0 PACKET 

ucB 

; OUTPUTS: 

IRPSB_CARCON IS SET UP TO REFLECT THE PRE/SUF CHARACTERS TO SEND. 


BYTE 0 = NUMBER OF CHARACTERS TO SEND 
BYTE 1 = CHARACTER, IF 0 THEN NEWLINE 
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i IRP$B_CARCON+2 HAS THE SUFFIX CONTROL. 

RO,R1 ARE USED. 

16 i- 

; LOCAL DATA TABLE 

CCTABLE: ; CARRIAGE CONTROL TO FORTRAN MATCH TABLE 
OD 01 00 01 BYTE 1.0,1.13 : SPACE => 1 NL, 1 CR 
0D 01 00 ; BYTE, gn0-1-13 : “O' => 2 NL, 1 CR 
OD 01 0c 5 “BYTE 1,12,1,13 >I" => 1 FF, 1 CR 
0D 01 00 ) $ ASCII ys Re ; ""*'" => NOTHING, 1 CR 
00 00 00 3 Brie. 10.0.0 ; 'S'' => 1 NL, NOTHING 
0 “ASCII /$/ 
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0D 01 00 .BYT ,0,1,13 : DEFAULT => 1 NL, 1 CR 
88 ; 7 ‘BYTE 6 ¢ TABLE END 
A ; 
A 
A § brescamsg : INTERPRET CARRIAGE CONTROL 
51 3 a3 9 A VZBL JRPSB_CARCON(R3) ,RI : GET FORTRAN SPECIFIER 
3 BEQ 0$ : IF EQL THEN TRY PRE/SUF 
30 DO AF 9 p MOVAB B*CCTABLE RO : ADDRESS MATCH TABLE 
A3 p , 4 10$ Ov. (R )+, IRPSB_CARCON(R3) ; ASSUME MATCH 
6 j 6A 4 BEQ 15 : IF a THEN YES 
51 C 9% CMP (RO)+,R1 + MATCH 
F if oF 44 BNEQ 10 : NO THEN SEARCH 
0 f 4 15S: RSB : ELSE RETU 
f oF i : PRE/SUF CARRIAGE CONTROL 
51 3€ A , a3 3 20S: WOVZBL ie CARCON¢2(R3),R1 GET PREFIX SPECIFIER 
i9 1 7 : BsB5 : INTERPRET THE SPECIFIER 
C a3 21 29 7A : 30S: Vn Rese. CARCON(R3) ; INSERT 
DA : 7 5 HOVE pf nPs8 BEARCONS J(R3) : INSERT CHAR Aer ER 
1  3F A A ; 934 ROVZBL Re CARCON#S(R3),R1 GET SUFFIX SPECIFIER 
§ 10 936 BSBB 4S s«1008 : CONVERT THE SPECIFIER 
3 a3 3 A 957 40$ MOVB  =R1, IRP$B_CARCON+ (RB) + INSERT 
FA 0 20 938 MOVB  RO,IRPSB~CARCON+3(R3) : INSERT CHARACTER 
0 3 999 RSB : RETURN 
4 get; ? SUBROUTINE TO INTERPRET PRE/SUF SPECIFIER 
50 D4 029 36 {00$: CLARE m0 3 ASSUME NEWLINE 
08 51 1 0295 964 BBC 110$ : IF BIT 7 CLEAR THEN DONE 
1 €0 965 BICB3 #i0E6, R1,RO : REMOVE OTHER BITS 
51 01 H 366 MOVZBL : SET ONE CHARACTER 
05 02a 67 110$: RSB + RETURN 
A 368 
Ao 96 END 
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! Psect synopsis ! 


oe 


PSECT name Allocation PSECT No. Attributes 

« 8 « 9.) ( 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
. BLANK . . 674.) ( -) NOPIC USR CON REL LCL NOSHR EXE AD WRT NOVEC BYTE 
SABSS 00 ¢ 0.) ( 2.) NOPIC USR CON ABS LCL NOSHR' EXE 
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H Performance indicators ; 


Phase Page faults CPU Time Elapsed Time 
Initialization 4 0:00: 9 : 37 
ee processing 13 :00: z :00:02. § 
pete table sort 173 :00: ‘Hh : :05: f 
Symbol table output 'e :00:00.11 0 :00. } 
Psect synopsis output :00:00. :00:00. 

Cross-reference output 9 8: if : 0:00: $0 
Assembler run totals 77 :00:23. 0:00:51.56 


{he yorking set Limit yes 1990 pag es. 
bytes (195 pages) of v rtual memory were weed to buffer fh . intermediate code. 
77 non-local and 44 Local symbols. 
Tine q. ect records in Pass 
pages of virtual memory were used tb ant ne 23 macros. 
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Macro Library name Macros defined 
55$0U SYS.OBJJLIB.MLB;1 1 
Btitttinys $ ESySii6 STARLET. MLB;2 § 

TOTALS (all Libraries) 19 


1959 GETS were required to define 19 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:SYSQIOFDT/OBJ=OBJ$:SYSQIOFDT MSRC$:SYSQIOFDT/UPDATE=(ENHS:SYSQIOFDT) +EXECMLS/LIB 


RD WRT NOVEC BYTE 
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